home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / prelude / Array.p < prev    next >
Text File  |  2002-10-27  |  2KB  |  43 lines
  1. pTempVar <- <primitive 110 7 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r21 16rFA 16r01 16r72 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " size " \
  7.   #( #[ 16r20 16rFA 16r01 16r04 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " printString " \
  11.   #( #[ 16r30 16r71 16r20 16rFA 16r01 16r04 16r72 16r22 16r50 16rCC 16rF7 \
  12.         16r15 16r20 16r22 16rFA 16r02 16r6F 16rA9 16r31 16r0B 16r12 \
  13.         16r21 16r0B 16r12 16r71 16r22 16r51 16rC1 16rF1 16r72 16rF2 \
  14.         16rF9 16r1A 16rF2 16r32 16r21 16r0B 16r12 16rF3 16rF5] \
  15.     #( ')' ' ' '#('  )) >
  16.  
  17. <primitive 112 pTempVar 4  " grow: " \
  18.   #( #[ 16r20 16r21 16rFA 16r02 16r71 16rF3 16rF5] \
  19.     #(  )) >
  20.  
  21. <primitive 112 pTempVar 5  " at:put: " \
  22.   #( #[ 16r21 16r51 16rC7 16rFB 16r06 16r21 16r20 16rFA 16r01 16r04 16rCC \
  23.         16rF7 16r06 16r20 16r30 16rBD 16rF2 16r5D 16rF3 16rF2 16r20 \
  24.         16r21 16r22 16rFA 16r03 16r70 16rF2 16r22 16rF3 16rF5] \
  25.     #( 'index error'  )) >
  26.  
  27. <primitive 112 pTempVar 6  " at: " \
  28.   #( #[ 16r21 16r51 16rC7 16rFB 16r06 16r21 16r20 16rFA 16r01 16r04 16rCC \
  29.         16rF7 16r06 16r20 16r30 16rBD 16rF2 16r5D 16rF3 16rF2 16r20 \
  30.         16r21 16rFA 16r02 16r6F 16rF3 16rF5] \
  31.     #( 'index error'  )) >
  32.  
  33. <primitive 112 pTempVar 7  " new " \
  34.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  35.     #( 'Arrays cannot be created with "new"'  )) >
  36.  
  37. <primitive 98 #Array \
  38.   <primitive 97 #Array #ArrayedCollection #AmigaTalk:General/Array.st \
  39.    #(  ) \
  40.    #( #new: #size #printString #grow: #at:put: #at: #new  ) \
  41.   pTempVar 3 4 > #ordinary >
  42.  
  43.